home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
LP.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
342b
|
12 lines
;Load a lisp file in the default directory.
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;
(defun c:LP()
(PRINC "Name of lisp file to load: <")
(PRINC *lf1)
(SETQ lf1(GETSTRING ">: "))
(IF(= lf1 "")(SETQ lf1 *lf1)(SETQ *lf1 lf1))
(load lf1)
(princ))